00100	(DE RANDOM () (QUOTIENT
00200		(BOOLE 1 (LSH (RANDM) -3) 7777777777) _RD))
00300	
00400	(LAP RANDM SUBR)
00500		(MOVE 1 (SPECIAL _RX))
00600		(220000 1 (SPECIAL _RA))
00700		(ADD 1 (C  15460 0 616031))
00800		(404000 1 (C 377777 0 777777))
00900		(MOVEM 1 (SPECIAL _RX))
01000		(MOVEI 2 (QUOTE FIXNUM))
01100		(CALL 2 (E MAKNUM))
01200		(POPJ P)
01300		NIL
01400	
01500	(DE INITRAND () (PROG (N)
01600		(SETQ _RD (PLUS 10000000000 0.0))
01700		(INITRAND1)
01800		(SETQ N (ADD1 (REMAINDER (TIME) 100)))
01900	LOOP	(COND ((GREATERP (SETQ N (SUB1 N)) 0)
02000			(RANDOM)  (GO LOOP)))
02100		(RETURN NIL)  ]
02200	
02300	(LAP INITRAND1 SUBR)
02400		(MOVE 1 (C 0 0 61356))
0258"DT&'∃ fP_H∀)h"Pd`f⊂ε),∀TCE